home *** CD-ROM | disk | FTP | other *** search
/ PCNet 2004 October / PCNET_CD_2004_10_1.iso / shareware / SESDemo.exe / {app} / CGI / cgiwrap.asp < prev    next >
Encoding:
Text File  |  2004-06-30  |  496 b   |  25 lines
  1. <%
  2.  
  3. cgiPath = "(scriptpath)"
  4. scrName = Request.ServerVariables("URL")
  5. query = Request.ServerVariables("QUERY_STRING")
  6.  
  7. Function PrintSearchCode (url)
  8.     Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")
  9.     xml.Open "GET", url, False   
  10.     xml.Send()
  11.     Response.write xml.Responsetext
  12. End Function
  13.  
  14. %>
  15.     <!--#include file="header.htm" -->
  16. <%
  17.  
  18. if query <> "" then
  19.     PrintSearchCode (cgiPath & "?" & query & "&wrap=" & scrName)
  20. end if
  21.  
  22. %>
  23.     <!--#include file="footer.htm" -->
  24. <%
  25. %>